population_df <- read.table(
  file = "e:/timeSeriesAnalysis/population.csv",  
  header = TRUE,                # 第一行是列名（Year、Total Population...）
  sep = "\t",                   # 明确指定分隔符为制表符（匹配数据格式）
  encoding = "UTF-8",           # 避免中文/特殊字符乱码
  stringsAsFactors = FALSE      # 不将字符列自动转为因子（避免后续处理问题）
)

# print(colnames(population_df)) //这里我最开始不了解列头如果有括号的话，R语言会直接编译成.
# 提取总人口数据
total_pop <- population_df$`Total.Population` 

# 创建时间序列：start 为起始年份，frequency 为 1（年度数据）
pop_ts <- ts(total_pop, start = min(population_df$Year), frequency = 1)  


# ts() 是 R 中时间序列分析的 “入口函数”—— 先把数据包装成时间序列对象，后续的分析、绘图才能利用时间维度的信息
# 查看时间序列
pop_ts